home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / edsspell / unit1.dfm / unit1.txt
Encoding:
Text File  |  1996-09-15  |  12.9 KB  |  494 lines
  1. object Demo1: TDemo1
  2.   Left = 7
  3.   Top = 86
  4.   Width = 648
  5.   Height = 488
  6.   Caption = 'Filter Demo Form'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'Arial'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   WindowState = wsMaximized
  14.   TextHeight = 14
  15.   object TabbedNotebook1: TTabbedNotebook
  16.     Left = 0
  17.     Top = 0
  18.     Width = 640
  19.     Height = 296
  20.     Align = alClient
  21.     TabFont.Color = clBtnText
  22.     TabFont.Height = -11
  23.     TabFont.Name = 'MS Sans Serif'
  24.     TabFont.Style = []
  25.     TabOrder = 0
  26.     object TTabPage
  27.       Left = 5
  28.       Top = 26
  29.       Caption = 'TFilter'
  30.       object Label10: TLabel
  31.         Left = 21
  32.         Top = 128
  33.         Width = 333
  34.         Height = 14
  35.         Caption = 
  36.           'Note that all these filters are independent of the current CustN' +
  37.           'o Index'
  38.         Color = clRed
  39.         ParentColor = False
  40.       end
  41.       object Label3: TLabel
  42.         Left = 8
  43.         Top = 248
  44.         Width = 471
  45.         Height = 15
  46.         AutoSize = False
  47.         Caption = 
  48.           'If you do not deactivate the filter before going to the next pag' +
  49.           'e you will '#39'and'#39' ing the filters!!'
  50.         Color = clRed
  51.         ParentColor = False
  52.         WordWrap = True
  53.       end
  54.       object ClearBtn: TButton
  55.         Left = 392
  56.         Top = 211
  57.         Width = 88
  58.         Height = 33
  59.         Caption = 'Clear Filter'
  60.         Font.Color = clWindowText
  61.         Font.Height = -11
  62.         Font.Name = 'Arial'
  63.         Font.Style = [fsBold]
  64.         ParentFont = False
  65.         TabOrder = 1
  66.         OnClick = ClearBtnClick
  67.       end
  68.       object ActivateBtn: TButton
  69.         Left = 7
  70.         Top = 211
  71.         Width = 88
  72.         Height = 33
  73.         Caption = 'Activate'
  74.         Font.Color = clWindowText
  75.         Font.Height = -11
  76.         Font.Name = 'Arial'
  77.         Font.Style = [fsBold]
  78.         ParentFont = False
  79.         TabOrder = 2
  80.         OnClick = ActivateBtnClick
  81.       end
  82.       object DeActivateBtn: TButton
  83.         Left = 103
  84.         Top = 211
  85.         Width = 88
  86.         Height = 33
  87.         Caption = 'DeActivate'
  88.         Font.Color = clWindowText
  89.         Font.Height = -11
  90.         Font.Name = 'Arial'
  91.         Font.Style = [fsBold]
  92.         ParentFont = False
  93.         TabOrder = 3
  94.         OnClick = DeActivateBtnClick
  95.       end
  96.       object RemoveBtn: TButton
  97.         Left = 199
  98.         Top = 211
  99.         Width = 88
  100.         Height = 33
  101.         Caption = 'Remove Filter'
  102.         Font.Color = clWindowText
  103.         Font.Height = -11
  104.         Font.Name = 'Arial'
  105.         Font.Style = [fsBold]
  106.         ParentFont = False
  107.         TabOrder = 4
  108.         OnClick = RemoveBtnClick
  109.       end
  110.       object Memo4: TMemo
  111.         Left = 8
  112.         Top = 4
  113.         Width = 613
  114.         Height = 202
  115.         Lines.Strings = (
  116.           
  117.             'The TFilter component allows you to access the BDE Filter Langua' +
  118.             'ge from Delphi 1.0. Filters can be built at design time '
  119.           
  120.             'using the FilterDesigner, or in procedures that can be called at' +
  121.             ' run time. Additionally Filters can be saved or loaded '
  122.           
  123.             'from a file. A RunTIme filter designer is provided for your end ' +
  124.             'users to design there own filters.'
  125.           ''
  126.           
  127.             'The design time FilterDesigner is accessed by double clicking on' +
  128.             ' the component.'
  129.           ''
  130.           
  131.             'Filters stored in a file or written in a procedure must use the ' +
  132.             'BDE CANOP language (see help file), Filters designed in the '
  133.           'FilterDesigner use more familiar terms.'
  134.           ''
  135.           
  136.             'All Filters can be set to AutoActivate, that is to become active' +
  137.             ' when the component is loaded and the GoFirst property '
  138.           
  139.             'determines wether the dataset is moved to the first record whene' +
  140.             'ver the filter is activated or deactivated.'
  141.           ''
  142.           
  143.             'The example on this page illustrates a filter created with the d' +
  144.             'esign time FilterDesigner that displays only those '
  145.           
  146.             'records with a non blank ADDR2 field and the COMPANY field doesn' +
  147.             't begin with K, this filter is AutoActivated.'
  148.           ''
  149.           
  150.             'You can Activate , DeActivate and Remove the filter. Note Removi' +
  151.             'ng a Filter only releases the BDE Filter resources. The '
  152.           
  153.             'filter is still defined in Delphi and can quickly be reactivated' +
  154.             ' or edited.'
  155.           
  156.             'To totally remove a filter you must also Clear the filter defini' +
  157.             'tion from Delphi. '
  158.           ''
  159.           
  160.             'There is also a button to set another filter that is defined in ' +
  161.             'a procedure written at design time.'
  162.           ''
  163.           
  164.             'Note as this filter shares the same filter component this filter' +
  165.             ' cannot be set UNTIL you first Clear the original filter.'
  166.           ''
  167.           'The new filter was defined as'
  168.           ''
  169.           'AddFilterCondition( COMPANY, canEQ, U.., canOR);'
  170.           
  171.             'AddFilterCondition( LASTINVOICEDATE, canGT, 11/8/94 1:05:03 AM, ' +
  172.             'canNOTDEFINED);')
  173.         ScrollBars = ssVertical
  174.         TabOrder = 5
  175.       end
  176.       object AddBtn: TButton
  177.         Left = 487
  178.         Top = 230
  179.         Width = 137
  180.         Height = 33
  181.         Caption = 'Add Filter'
  182.         Font.Color = clWindowText
  183.         Font.Height = -11
  184.         Font.Name = 'Arial'
  185.         Font.Style = [fsBold]
  186.         ParentFont = False
  187.         TabOrder = 0
  188.         OnClick = AddBtnClick
  189.       end
  190.     end
  191.     object TTabPage
  192.       Left = 5
  193.       Top = 26
  194.       Caption = 'FilterFunction'
  195.       object CBackOnBtn: TButton
  196.         Left = 16
  197.         Top = 225
  198.         Width = 146
  199.         Height = 33
  200.         Caption = 'Filter CallBack Event ON'
  201.         Font.Color = clWindowText
  202.         Font.Height = -11
  203.         Font.Name = 'Arial'
  204.         Font.Style = [fsBold]
  205.         ParentFont = False
  206.         TabOrder = 0
  207.         OnClick = CBackOnBtnClick
  208.       end
  209.       object CBackOffBtn: TButton
  210.         Left = 177
  211.         Top = 225
  212.         Width = 144
  213.         Height = 33
  214.         Caption = 'Filter CallBack Event OFF'
  215.         Font.Color = clWindowText
  216.         Font.Height = -11
  217.         Font.Name = 'Arial'
  218.         Font.Style = [fsBold]
  219.         ParentFont = False
  220.         TabOrder = 1
  221.         OnClick = CBackOffBtnClick
  222.       end
  223.       object Memo1: TMemo
  224.         Left = 16
  225.         Top = 32
  226.         Width = 593
  227.         Height = 81
  228.         Lines.Strings = (
  229.           
  230.             'The Filter Function component allows you to install a filter tha' +
  231.             't generates an event whenever a record needs to be '
  232.           
  233.             'checked to see if it should be displayed. Your event handler can' +
  234.             ' acccess any field in the dataset or any other object or '
  235.           
  236.             'dataset. You must not do anything in your event handler that cou' +
  237.             'ld either change the dataset state or move the record '
  238.           
  239.             'position. The event handler just returns true to let the record ' +
  240.             'be displayed and false to prevent it.')
  241.         TabOrder = 2
  242.       end
  243.       object Memo5: TMemo
  244.         Left = 16
  245.         Top = 168
  246.         Width = 305
  247.         Height = 49
  248.         Lines.Strings = (
  249.           'Callsback to a function that only returns true if the COMPANY '
  250.           'field contains the character C.')
  251.         TabOrder = 3
  252.       end
  253.     end
  254.     object TTabPage
  255.       Left = 5
  256.       Top = 26
  257.       Caption = 'FilterDesigner'
  258.       object StoredBtn: TButton
  259.         Left = 8
  260.         Top = 224
  261.         Width = 137
  262.         Height = 33
  263.         Caption = 'Prepare Designer Filter'
  264.         Font.Color = clWindowText
  265.         Font.Height = -11
  266.         Font.Name = 'Arial'
  267.         Font.Style = [fsBold]
  268.         ParentFont = False
  269.         TabOrder = 0
  270.         OnClick = StoredBtnClick
  271.       end
  272.       object Button1: TButton
  273.         Left = 152
  274.         Top = 224
  275.         Width = 137
  276.         Height = 33
  277.         Caption = 'Activate Designer Filter'
  278.         Font.Color = clWindowText
  279.         Font.Height = -11
  280.         Font.Name = 'Arial'
  281.         Font.Style = [fsBold]
  282.         ParentFont = False
  283.         TabOrder = 1
  284.         OnClick = Button1Click
  285.       end
  286.       object DesignerBtn: TButton
  287.         Left = 8
  288.         Top = 189
  289.         Width = 137
  290.         Height = 33
  291.         Caption = 'Filter Designer'
  292.         Font.Color = clWindowText
  293.         Font.Height = -11
  294.         Font.Name = 'Arial'
  295.         Font.Style = [fsBold]
  296.         ParentFont = False
  297.         TabOrder = 2
  298.         OnClick = DesignerBtnClick
  299.       end
  300.       object Memo2: TMemo
  301.         Left = 8
  302.         Top = 16
  303.         Width = 609
  304.         Height = 57
  305.         Lines.Strings = (
  306.           
  307.             'The Filter Designer gives you a tool for your end users to desig' +
  308.             'n there own Filter at run time. The Designer has been '
  309.           
  310.             'specifically designed to make the process as simple as possible ' +
  311.             'so we use a subset of the full Filter Language and we use '
  312.           
  313.             'more familiar terms than the standard CANOP terms as well as usi' +
  314.             'ng field display labels rather than fieldnames.'
  315.           '')
  316.         TabOrder = 3
  317.       end
  318.       object Memo3: TMemo
  319.         Left = 8
  320.         Top = 80
  321.         Width = 609
  322.         Height = 106
  323.         Lines.Strings = (
  324.           
  325.             'In this particular case we have chosen to save the filter to dis' +
  326.             'k in the file FILTER.TXT. All TFilter components can '
  327.           
  328.             'load or save filters to disk. Note that filters stored in a file' +
  329.             ', like filters written in code must use the BDE CANOP Language, ' +
  330.             'this '
  331.           'is detailed in the help file'
  332.           ''
  333.           
  334.             'Filters can be prepared and then activated or simply activated i' +
  335.             'n one go, try it and see.'
  336.           
  337.             'When you again access the FilterDesigner your existing filter is' +
  338.             ' "read" by the Filter Designer so allowing you to continue '
  339.           'editing a filter if the result is not what you expected.'
  340.           '')
  341.         TabOrder = 4
  342.       end
  343.       object Button2: TButton
  344.         Left = 296
  345.         Top = 224
  346.         Width = 137
  347.         Height = 33
  348.         Caption = 'Remove Filter'
  349.         Font.Color = clWindowText
  350.         Font.Height = -11
  351.         Font.Name = 'Arial'
  352.         Font.Style = [fsBold]
  353.         ParentFont = False
  354.         TabOrder = 5
  355.         OnClick = Button2Click
  356.       end
  357.       object Button3: TButton
  358.         Left = 484
  359.         Top = 224
  360.         Width = 135
  361.         Height = 33
  362.         Caption = 'Load From File'
  363.         TabOrder = 6
  364.         OnClick = Button3Click
  365.       end
  366.     end
  367.   end
  368.   object Panel1: TPanel
  369.     Left = 0
  370.     Top = 296
  371.     Width = 640
  372.     Height = 165
  373.     Align = alBottom
  374.     Caption = 'Panel1'
  375.     TabOrder = 1
  376.     object DBNavigator1: TDBNavigator
  377.       Left = 8
  378.       Top = 5
  379.       Width = 241
  380.       Height = 25
  381.       DataSource = DataSource1
  382.       TabOrder = 0
  383.     end
  384.     object DBEdit1: TDBEdit
  385.       Left = 256
  386.       Top = 7
  387.       Width = 49
  388.       Height = 21
  389.       DataField = 'CustNo'
  390.       DataSource = DataSource1
  391.       MaxLength = 0
  392.       TabOrder = 1
  393.     end
  394.     object DBEdit2: TDBEdit
  395.       Left = 312
  396.       Top = 7
  397.       Width = 153
  398.       Height = 21
  399.       DataField = 'Company'
  400.       DataSource = DataSource1
  401.       MaxLength = 30
  402.       TabOrder = 2
  403.     end
  404.     object DBEdit3: TDBEdit
  405.       Left = 472
  406.       Top = 7
  407.       Width = 153
  408.       Height = 21
  409.       DataField = 'Addr1'
  410.       DataSource = DataSource1
  411.       MaxLength = 30
  412.       TabOrder = 3
  413.     end
  414.     object DBGrid1: TDBGrid
  415.       Left = 8
  416.       Top = 35
  417.       Width = 625
  418.       Height = 129
  419.       DataSource = DataSource1
  420.       Font.Color = clWindowText
  421.       Font.Height = -11
  422.       Font.Name = 'Arial'
  423.       Font.Style = []
  424.       ParentFont = False
  425.       TabOrder = 4
  426.       TitleFont.Color = clWindowText
  427.       TitleFont.Height = -13
  428.       TitleFont.Name = 'System'
  429.       TitleFont.Style = []
  430.     end
  431.   end
  432.   object Table1: TTable
  433.     Active = True
  434.     DatabaseName = 'DBDEMOS'
  435.     TableName = 'CUSTOMER.DB'
  436.   end
  437.   object DataSource1: TDataSource
  438.     DataSet = Table1
  439.     Top = 32
  440.   end
  441.   object FilterFunc1: TFilterFunc
  442.     Dataset = Table1
  443.     OnFilterRecord = FilterFunc1FilterRecord
  444.     GoFirst = False
  445.     AutoActivate = False
  446.     Left = 32
  447.     Top = 32
  448.   end
  449.   object Filter: TFilter
  450.     Dataset = Table1
  451.     GoFirst = False
  452.     AutoActivate = True
  453.     AutoPack = False
  454.     Left = 64
  455.     Conditions = (
  456.       'Addr2'
  457.       2
  458.       'ZZZZZZ'
  459.       10
  460.       1
  461.       0
  462.       False
  463.       'ZZZZZZ'
  464.       0
  465.       'ZZZZZZ'
  466.       9
  467.       0
  468.       0
  469.       False
  470.       'Company'
  471.       3
  472.       'K..'
  473.       0
  474.       1
  475.       3
  476.       True)
  477.   end
  478.   object Filter1: TFilter
  479.     Dataset = Table1
  480.     GoFirst = False
  481.     AutoActivate = False
  482.     AutoPack = False
  483.     Left = 32
  484.     Conditions = ()
  485.   end
  486.   object Table2: TTable
  487.     Active = True
  488.     DatabaseName = 'DBDEMOS'
  489.     TableName = 'EMPLOYEE.DB'
  490.     Left = 5
  491.     Top = 74
  492.   end
  493. end
  494.